unit uFtpNew;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
  Spin;

type

  { TFmFtpEdit }

  TFmFtpEdit = class(TForm)
    BtnTestConnect: TButton;
    BTOK: TButton;
    CBFtpConnectType: TComboBox;
    CheckBNiming: TCheckBox;
    ComboBox2: TComboBox;
    EDFtpIP: TEdit;
    EdFtpName: TEdit;
    EdFtpPassw: TEdit;
    EDFtpPath: TEdit;
    EdFtpUser: TEdit;
    Label1: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label3: TLabel;
    Panel1: TPanel;
    Panel30: TPanel;
    SPEDFtpPort: TSpinEdit;
    SpinEdit2: TSpinEdit;
    procedure BtnTestConnectClick(Sender: TObject);
    procedure BTOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private

  public

  end;

var
  FmFtpEdit: TFmFtpEdit;

implementation

{$R *.lfm}

{ TFmFtpEdit }

procedure TFmFtpEdit.BTOKClick(Sender: TObject);
begin

end;

procedure TFmFtpEdit.FormCreate(Sender: TObject);
begin

end;

procedure TFmFtpEdit.FormShow(Sender: TObject);
begin

end;

procedure TFmFtpEdit.BtnTestConnectClick(Sender: TObject);
begin

end;

end.

